home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / wtour / pulldown1.tcl < prev    next >
Text File  |  1995-06-29  |  776b  |  36 lines
  1.  
  2.  
  3. xmMenuBar .menuBar managed
  4.  
  5. # file pulldown
  6. xmPulldownMenu .filePane
  7. xmCascadeButton .menuBar.File managed \
  8.         -subMenuId .filePane
  9.  
  10. # normal menu item
  11. xmPushButton .filePane.Quit managed
  12. .filePane.Quit activateCallback {puts stdout "Quit selected"}
  13.  
  14. # create a submenu
  15. xmPulldownMenu .filePane.subPane
  16. xmCascadeButton .filePane.Submenu managed \
  17.     -subMenuId .filePane.subPane
  18.  
  19. # with submenu items
  20. xmPushButton .filePane.subPane.Print1 managed
  21. xmPushButton .filePane.subPane.Print2 managed
  22.  
  23. #
  24. # help
  25. #
  26. xmPulldownMenu .helpPane
  27. xmCascadeButton .menuBar.Help managed \
  28.         -subMenuId .helpPane
  29.  
  30. # set special resource to get Help on right
  31. .menuBar setValues \
  32.         -menuHelpWidget .menuBar.Help
  33.  
  34. # another normal menu button
  35. xmPushButton .helpPane.About managed
  36.